home *** CD-ROM | disk | FTP | other *** search
- echo off
- if '%1' == '' goto NO_PARMS
- if '%2' == '' goto NO_PARMS
- goto OK
- :NO_PARMS
- echo USAGE: BTCREATE [.BTB File] [new Btrieve file]
- goto END
- :OK
- rem
- rem 'M' to choose Misc. Btrieve Functions, R for cReate, %1 for .BTB
- rem file'!' for ENTER, %2 the New file, '!' for enter, and '#' for ESC.
- rem
- echo MR^C%1!BTCREATE.DAT!### >btcreate.txt
- btfiler /k:btcreate.txt
- del btcreate.txt
- if exist BTCREATE.DAT goto OK2:
- echo Error creating temporary file...
- goto END
- :OK2
- if exist %2 DEL %2
- ren BTCREATE.DAT %2
- :END